home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
database
/
tickle15.zip
/
EDITOR.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-08-02
|
16KB
|
978 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Boolean BOOLEAN004
Boolean BOOLEAN005
Boolean BOOLEAN006
Boolean BOOLEAN007
Boolean BOOLEAN008
Boolean BOOLEAN009
Boolean BOOLEAN010
Boolean BOOLEAN011
Boolean BOOLEAN012
Boolean BOOLEAN013
Boolean BOOLEAN014
Boolean BOOLEAN015
Boolean BOOLEAN016
Boolean BOOLEAN017
Boolean BOOLEAN018
Integer INTEGER001
Integer INTEGER002
Real REAL001
Real REAL002
Real REAL003
Real REAL004
Real REAL005
String TSTRING001(49)
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
Int INT001
Int INT002
Int INT003
Int INT004
Int INT005
Int INT006
Int INT007
Int INT008
Int INT009
Int INT010
Int INT011
Int INT012
Int INT013
Int INT014
Int INT015
Int INT016
Int INT017
Int INT018
;------------------------------------------------------------------------------
BOOLEAN008 = 1
BOOLEAN007 = 1
STRING016 = PPEPath() + "TKLTEXT" + LangExt()
STRING025 = "\"
STRING026 = "|"
STRING027 = "/"
STRING028 = "-"
STRING021 = Chr(8) + Chr(32) + Chr(8)
Gosub LABEL040
If (DErr(0)) Then
Newline
PrintLn ReadLine(STRING016, 2)
Newline
PrintLn ReadLine(STRING016, 3)
Newline
Log "Cannot open TICKLE.DBF (DataBase) - Aborting", 0
Else
Gosub LABEL020
If (DErr(0)) Then
Newline
PrintLn ReadLine(STRING016, 4)
Newline
PrintLn ReadLine(STRING016, 3)
Newline
Log "Cannot open TICKLE.NDX (Index) - Aborting", 0
Else
Cls
Newline
PrintLn ReadLine(STRING016, 41)
Gosub LABEL012
Gosub LABEL017
Goto LABEL018
:LABEL001
If ((InStr(STRING005, "-") == 0) || (InStr(STRING005, "-") == 1)) Return
STRING014 = STRING005
STRING005 = ""
Tokenize STRING014
If (TokCount() == 0) Return
For INT006 = 1 To Len(STRING014)
STRING015 = GetToken()
If (STRING015 == "") Break
If (InStr(STRING015, "-") == 0) Then
STRING005 = STRING005 + STRING015 + " "
Continue
Endif
STRING009 = Mid(STRING015, 1, InStr(STRING015, "-") - 1)
If (STRING009 <> "") STRING010 = Mid(STRING015, InStr(STRING015, "-") + 1, Len(STRING015))
INT007 = S2I(STRING009, 10)
INT008 = S2I(STRING010, 10)
If (INT007 < 1) Then
If (INT007 == 0) STRING009 = STRING015
Newline
PrintLn ReadLine(STRING016, 26), STRING009, ReadLine(STRING016, 27)
Newline
Continue
Endif
If (INT008 > 24) Then
Newline
PrintLn ReadLine(STRING016, 26), INT008, ReadLine(STRING016, 27)
Newline
Continue
Endif
If (INT008 >= INT007) Then
For INT003 = INT007 To INT008
STRING005 = STRING005 + LTrim(I2S(INT003, 10), " ") + " "
Next
Continue
Endif
Newline
PrintLn ReadLine(STRING016, 5), STRING015, ReadLine(STRING016, 6)
Next
Return
:LABEL002
INT002 = 0
For INT005 = 2 To 25
If (DGet(0, DName(0, INT005)) == " ") Then
INT002 = INT005 - 1
Break
Endif
Next
Return
:LABEL003
BOOLEAN017 = 0
If (DTop(0) == 0) Then
Newline
SPrintLn ReadLine(STRING016, 42)
Newline
Wait
Goto LABEL018
Else
If (!BOOLEAN012) Print " @X0ESearching @X0F[@X0CENTER Aborts@X0F] @X0F... @X0E"
For INT004 = 1 To DRecCount(0)
DGo 0, INT004
STRING009 = Trim(DGet(0, DName(0, 1)), " ")
If (BOOLEAN012) Goto LABEL004
Gosub LABEL047
If (InStr(STRING009, STRING005) > 0) Then
Print STRING021
BOOLEAN013 = 1
Newline
PrintLn ReadLine(STRING016, 43), STRING009
Newline
STRING013 = "N"
STRING004 = ReadLine(STRING016, 44)
InputStr STRING004, STRING013, 14, 1, "YN", 8 + 256
If (((STRING013 == "") || (STRING013 == "N")) || (STRING013 == NoChar())) Then
BOOLEAN009 = 1
Break
Else
Newline
Print " @X0ESearching @X0F[@X0CENTER Aborts@X0F] @X0F... @X0E"
Endif
Else
Gosub LABEL019
If (BOOLEAN017) Break
Endif
Continue
:LABEL004
Print Space(5 - Len(String(INT004))), "@X0F", INT004, ". @X03", STRING009
If (INT004 % 2) Goto LABEL005
Newline
Inc INT009
Goto LABEL006
:LABEL005
Print Space(33 - Len(STRING009))
:LABEL006
If (BOOLEAN018) Then
Gosub LABEL019
If (BOOLEAN017) Then
BOOLEAN018 = 0
Break
Endif
Endif
If ((INT009 > 21) && !BOOLEAN018) Then
STRING004 = Read